home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Camelot / Camelot 098 (1990-12)(Swedish User Group of Amiga)(SE)(PD)[WB].zip / Camelot 098 (1990-12)(Swedish User Group of Amiga)(SE)(PD)[WB].adf / XLisp-Stat / Functions / pointmove.lsp < prev    next >
Text File  |  1990-10-11  |  303b  |  11 lines
  1. ; book pp.277-278
  2.  
  3. (send graph-proto :add-mouse-mode 'point-moving
  4.        :title "Point Moving"
  5.        :cursor 'hand
  6.        :click :do-point-moving)
  7.  
  8. (defmeth graph-proto :do-point-moving (x y m1 m2)
  9.       (let ((p (send self :drag-point x y)))
  10.        (if p (format t "Point ~d has been moved.~%" p))))
  11.